home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G38F / MAC_BAR.Dxr / 00032_ðŽ›ƒº€¨›Ã.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  4.6 KB  |  60 lines
  1. on countcast
  2.   global mcheck, left_p, right_p, maxpage, castsuu, countcast, zetaisuu, minsuu, maxsuu, csuu, i, castno
  3.   set countcast to 20
  4.   set castsuu to maxpage
  5.   set zetaisuu to 2
  6.   set csuu to 0
  7.   set minsuu to left_p
  8.   set maxsuu to right_p
  9.   puppetSprite(countcast, 1)
  10.   repeat with i = 1 to castsuu
  11.     if (mcheck >= (minsuu + csuu)) and (mcheck < ((i * zetaisuu) + minsuu)) then
  12.       set the memberNum of sprite countcast to i + 100
  13.       set castno to i
  14.       set the rect of sprite countcast to rect(mcheck - 27, 7, mcheck, 25)
  15.       updateStage()
  16.       exit
  17.     else
  18.     end if
  19.     set csuu to csuu + 2
  20.   end repeat
  21. end
  22.  
  23. on jumpjump
  24.   global jumplist, castno, cntpage, moveflg, mcheck
  25.   set jumplist to ["ﾃｯ¥ﾃｩﾃœ", "1p", "2p", "3p", "4p", "5p", "6p", "7p", "8p", "9p", "10p", "11p", "12p", "13p", "14p", "15p", "16p", "17p", "18p", "19p", "20p", "21p", "22p", "23p", "24p", "25p", "26p", "27p", "28p", "29p", "30p", "31p", "32p", "33p", "34p", "35p", "36p", "37p", "38p", "39p", "40p", "41p", "42p", "43p", "44p", "45p", "46p", "47p", "48p", "49p", "50p", "51p", "52p", "53p", "54p", "55p", "56p", "57p", "58p", "59p", "60p", "61p", "62p", "63p", "64p", "65p", "66p", "67p", "68p", "69p", "70p", "71p", "72p", "73p", "74p", "75p", "76p", "77p", "78p", "79p", "80p", "81p", "82p", "83p", "84p", "85p", "86p", "87p", "88p", "89p", "90p", "91p", "92p", "93p", "94p", "95p", "96p", "97p", "98p", "99p", "100p", "101p", "102p", "103p", "104p", "105p", "106p", "107p", "108p", "109p", "110p", "111p", "112p", "113p", "114p", "115p", "116p", "117p", "118p", "119p", "120p", "121p", "122p", "123p", "124p", "125p", "126p", "127p", "128p", "129p", "130p", "131p", "132p", "133p", "134p", "135p", "136p", "137p", "138p", "139p", "140p", "141p", "142p", "143p", "144p", "145p", "146p", "147p", "148p", "149p", "150p", "151p", "152p", "153p", "154p", "155p", "156p", "157p", "158p", "159p", "160p", "161p", "162p", "163p", "164p", "165p", "166p", "167p", "168p", "169p", "170p", "171p", "172p", "173p", "174p", "175p", "176p", "177p", "178p", "179p", "180p", "181p", "182p", "183p", "184p", "185p", "186p", "187p", "188p", "189p", "190p", "191p", "192p", "193p", "194p", "195p", "196p", "197p", "198p", "199p"]
  26.   if moveflg = 0 then
  27.     set cntpage to castno
  28.   end if
  29.   if moveflg = 2 then
  30.     set cntpage to cntpage
  31.   end if
  32.   countcrt()
  33.   tell the stage
  34.     go(getAt(jumplist, cntpage))
  35.   end tell
  36. end
  37.  
  38. on jumpjumpkey
  39.   global jumplistkey, cntpage
  40.   set jumplistkey to ["ﾃｯ¥ﾃｩﾃ弋", "1pT", "2pT", "3pT", "4pT", "5pT", "6pT", "7pT", "8pT", "9pT", "10pT", "11pT", "12pT", "13pT", "14pT", "15pT", "16pT", "17pT", "18pT", "19pT", "20pT", "21pT", "22pT", "23pT", "24pT", "25pT", "26pT", "27pT", "28pT", "29pT", "30pT", "31pT", "32pT", "33pT", "34pT", "35pT", "36pT", "37pT", "38pT", "39pT", "40pT", "41pT", "42pT", "43pT", "44pT", "45pT", "46pT", "47pT", "48pT", "49pT", "50pT", "51pT", "52pT", "53pT", "54pT", "55pT", "56pT", "57pT", "58pT", "59pT", "60pT", "61pT", "62pT", "63pT", "64pT", "65pT", "66pT", "67pT", "68pT", "69pT", "70pT", "71pT", "72pT", "73pT", "74pT", "75pT", "76pT", "77pT", "78pT", "79pT", "80pT", "81pT", "82pT", "83pT", "84pT", "85pT", "86pT", "87pT", "88pT", "89pT", "90pT", "91pT", "92pT", "93pT", "94pT", "95pT", "96pT", "97pT", "98pT", "99pT", "100pT", "101pT", "102pT", "103pT", "104pT", "105pT", "106pT", "107pT", "108pT", "109pT", "110pT", "111pT", "112pT", "113pT", "114pT", "115pT", "116pT", "117pT", "118pT", "119pT", "120pT", "121pT", "122pT", "123pT", "124pT", "125pT", "126pT", "127pT", "128pT", "129pT", "130pT", "131pT", "132pT", "133pT", "134pT", "135pT", "136pT", "137pT", "138pT", "139pT", "140pT", "141pT", "142pT", "143pT", "144pT", "145pT", "146pT", "147pT", "148pT", "149pT", "150pT", "151pT", "152pT", "153pT", "154pT", "155pT", "156pT", "157pT", "158pT", "159pT", "160pT", "161pT", "162pT", "163pT", "164pT", "165pT", "166pT", "167pT", "168pT", "169pT", "170pT", "171pT", "172pT", "173pT", "174pT", "175pT", "176pT", "177pT", "178pT", "179pT", "180pT", "181pT", "182pT", "183pT", "184pT", "185pT", "186pT", "187pT", "188pT", "189pT", "190pT", "191pT", "192pT", "193pT", "194pT", "195pT", "196pT", "197pT", "198pT", "199pT"]
  41.   countcrt()
  42.   tell the stage
  43.     go(getAt(jumplistkey, cntpage))
  44.   end tell
  45. end
  46.  
  47. on countcrt
  48.   global cntpage, countcast, drugcast, maxpage, lrect, l1rect
  49.   set countcast to 20
  50.   set drugcast to 19
  51.   set l1rect to 272 + ((cntpage - 1) * 2)
  52.   set lrect to 269 + ((cntpage - 1) * 2)
  53.   puppetSprite(countcast, 1)
  54.   puppetSprite(drugcast, 1)
  55.   set the memberNum of sprite countcast to cntpage + 49
  56.   set the rect of sprite drugcast to rect(lrect, 5, lrect + 33, 28)
  57.   set the rect of sprite countcast to rect(l1rect, 7, l1rect + 27, 25)
  58.   updateStage()
  59. end
  60.